ListView problikava

Otázka od: P&v

13. 5. 2004 20:37

Dd,
mam problem s ListViewem. Menim polozky nasledujici procedurou

procedure TForm1.zmen(j1,j2,j3,j4:string);
var ListItem: TListItem;
begin
  with fileView do begin
    ListItem:=FindCaption(0,j1,true,true,true);
    ListItem.Caption:=jm2;
    ListItem.SubItems.CommaText:=j3;
    ListItem.SubItems.Add(j4);
    end;
  end;

Kupodivu mi to funguje

, ale pri kazde zmene
cely listViw problikne

, coz je pri periode obnovy 0.5s
dost neprijemne.
Zkousel jsem tez
beginUpdate..endUpdate
a
sendMessage(form1.Handle,WM_SETREDRAW,0,0);
sendMessage(form1.Handle,WM_SETREDRAW,1,0);

d

Odpovedá: P&v

19. 5. 2004 13:50

Tak si odpovim sam:

procedure TForm1.zmen(j1,j2,j3,j4:string);
var ListItem: TListItem;
begin
with fileView do begin
ListItem:=FindCaption(0,j1,true,true,true);
ListItem.Caption:=j2;
ListItem.SubItems.Clear;
ListItem.SubItems.Add(j3);
ListItem.SubItems.Add(j4);
end;
end;

....